home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HypertalkTools.cpt / Menus For HyperCard™ / background_2721.txt < prev    next >
Text File  |  1989-02-26  |  3KB  |  165 lines
  1. -- background: 2721 from stack: in
  2. -- bmap block id: 6654
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on openCard
  12.   put number of this card into field "cnum"
  13. end openCard
  14.  
  15. on newCard
  16.   send "tabKey"
  17. end newCard
  18.  
  19. on arrowKey whichWay
  20.   if whichWay is "left" then
  21.     visual effect wipe right
  22.     go to previous card
  23.   else if whichWay is "right" then
  24.     visual effect wipe left
  25.     go to next card
  26.   end if
  27. end arrowKey
  28.  
  29.  
  30.  
  31.  
  32. -- part 1 (field)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=44 top=38 right=57 bottom=112
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Type
  44.  
  45.  
  46. -- part 14 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=232 top=306 right=331 bottom=259
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 1014 / 1014
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Prev
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   visual effect wipe right
  61.   go to previous card
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 22 (field)
  67. -- low flags: 00
  68. -- high flags: 0000
  69. -- rect: left=127 top=38 right=57 bottom=496
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Title
  78.  
  79.  
  80. -- part 13 (field)
  81. -- low flags: 00
  82. -- high flags: 0007
  83. -- rect: left=18 top=76 right=304 bottom=495
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 10
  89. -- style flags: 0
  90. -- line height: 13
  91. -- part name: Description
  92.  
  93.  
  94. -- part 15 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=263 top=306 right=331 bottom=290
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 1013 / 1013
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Next
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   visual effect wipe left
  109.   go to next card
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 19 (button)
  115. -- low flags: 00
  116. -- high flags: 0000
  117. -- rect: left=10 top=31 right=61 bottom=43
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: New Button
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   doMenu "New Card"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 20 (field)
  134. -- low flags: 01
  135. -- high flags: 0000
  136. -- rect: left=457 top=308 right=327 bottom=495
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 65535
  140. -- font id: 3
  141. -- text size: 12
  142. -- style flags: 256
  143. -- line height: 16
  144. -- part name: cnum
  145.  
  146.  
  147. -- part 24 (button)
  148. -- low flags: 00
  149. -- high flags: 8002
  150. -- rect: left=18 top=309 right=327 bottom=111
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: Index Card
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   visual effect dissolve
  162.   go to card "Index Card"
  163. end mouseUp
  164.  
  165.